home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 1 Issue 2
/
PDCD-1 - Issue 02.iso
/
_utilities
/
utilities
/
001
/
wimpext
/
FNtemplate
(
.txt
)
< prev
next >
Wrap
RISC OS BBC BASIC V Source
|
1993-03-15
|
1KB
|
59 lines
>FNtemplate
Template-including function
(c) Jon Ribbens of DoggySoft, 1993
Note - assumes pass counter is called 'p'
sin(F%)
a$,c%
a$=""
c%=
c%>31
a$<12
a$+=
c%=
win(F%)
a%=
a%=a%
#F%<<8)
a%=a%
#F%<<16)
a%=a%
#F%<<24)
template(template$,tempfile$)
F%,a%,p%,l%,fo%,i%
F%=
(tempfile$)
F%=0
0,"Templates file '"+tempfile$+"' not found"
a%=0
fo%=
#F%=16+a%*24
p%=
win(F%)
l%=
win(F%)
#F%=16+a%*24+12
&
sin(F%)=template$
fo%=
(;
"Adding template '";template$;"'"
#F%=p%
i%=1
[OPT p
EQUB
]
[OPT p
align
]
3
a%+=1
p%=0
fo%=
0,"Template '"+template$+"' not found"